home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #2
/
Monster Media No. 2 (Monster Media)(1994).ISO
/
finance
/
cs4_b.zip
/
LOAN1.STY
< prev
next >
Wrap
Text File
|
1994-05-15
|
2KB
|
66 lines
@UA" Enter Loan Amount "
> @VN01 := {@UA} ; Principal
@UA" Enter Annual Interest Rate "
> @VN02 := {@UA} ; Annual Interest rate
@UN" Enter Number of Years "
> @VN03 := {@UN} ; Number of years
> @VN04 := {12} ; Periods per year
@UA" Enter Monthly Payment "
> @VN05 := {@UA} ; Monthly payment
> @VN06 := {@VN03 * 12} ; Number of payments
@IF @RD = "SCREEN" THEN
@MH5
─────────┬────────────┬────────────┬────────────────┬────────────┬────────────
│ Beginning │ Interest │ Actual amount │ Principal │ Cumulative
Payment │ principal │ paid each │ applied toward │ balance │ interest
number │ balance │ period │ principal │ remaining │ paid
─────────┼────────────┼────────────┼────────────────┼────────────┼────────────
@LA{@VN06}
> @VN20 := {@VN20+1}
@MA5 @MD00 @VN20 │@MA11 @MD02 @VN01------ │
> @VN21 := {(@VN01 * (@VN02/100)) / 12}
@VN21------ │
> @VN01 := {@VN01 - (@VN05 - @VN21)}
> @VN22 := {@VN05 - @VN21}
@VN22------ │
@VN01------ │
> @VN23 := {@VN23 + @VN21}
@VN23------
@EA
─────────┴────────────┴────────────┴────────────────┴────────────┴────────────
@EL
@PA ;
> @VN82 := {1}
@LA{@VN06}
@IF {@VN82} = {1} THEN
@MI{@RI} ==============================================================================
@MI{@RI} | Beginning | Interest | Actual amount | Principal | Cumulative
@MI{@RI} Payment | principal | paid each | applied toward | balance | interest
@MI{@RI} number | balance | period | principal | remaining | paid
@MI{@RI} ==============================================================================
> @VN50 := {6}
> @VN82 := {0}
@EI
> @VN50 := {@VN50+1}
> @VN20 := {@VN20+1}
@MA5 @MD00 @MI{@RI} @VN20 @MA11 @MD02 @VN01------ ;
> @VN21 := {(@VN01 * (@VN02/100)) / 12}
@VN21------ ;
> @VN01 := {@VN01 - (@VN05 - @VN21)}
> @VN22 := {@VN05 - @VN21}
@VN22------ ;
@VN01------ ;
> @VN23 := {@VN23 + @VN21}
@VN23------
@IF {@VN50} > {@RF} THEN
@PB ;
@UM"Ready to print next page."
> @VN82 := {1}
@EI
@EA
@MI{@RI} ==============================================================================
@EI